www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_select_a_label_before.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=inc/checkadmin1.asp-->
<DIV id="loading_msg" style="position:absolute; z-index:200; top:30px; left:54px; background-color:#ffffff; width: 306px; height: 22px;" >
请稍后,即将加载标签列表......</div>
<!--#include file=../inc/Functionb.asp-->
<script type="text/javascript" src="../inc/zxml.js"></script>
<!--#include file=../inc/ajaxLIB_no_loader.asp-->
<%
Server.ScriptTimeout=999999
session.timeout=600
nwhen_usinga=Application("newdsoft_web_user_mdb_when_using")
nis_usinga=Application("newdsoft_web_user_mdb_using")
maxxx_tiimeout_a_mdb=60*10
if (not isempty(nwhen_usinga)) or nwhen_usinga<>"" or isDate(nwhen_usinga) then
If DateDiff("s",nwhen_usinga,Now())>maxxx_tiimeout_a_mdb and nis_usinga="yes" Then
Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application.UnLock()
end if
end if
if not isDate(nwhen_usinga) then
Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()
end if
if Application("newdsoft_web_user_mdb_using")<>"yes" then
Application.Lock()
'Application("newdsoft_web_user_mdb_using")="yes"
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()
else
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>对不起，当前有其他人正在进行 锁定性数据库读写操作，请稍后再重试(最多需等待11分钟)....</font>';",100);
alert("对不起，当前有其他人正在进行 锁定性数据库读写操作，请稍后再重试(最多需等待11分钟)");
</script>
<%
response.end
end if
' 检测组件变量
dim isobj,VerObj,TestObj
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub
ObjTest(fssoo_nd_var_str_x_customx)
if not isobj then
sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
</script>
<%
response.end
else
sss1="检测中:支持FSO， 请稍后,即将加载标签列表......"
if session("newdsoft_selct_a_lable_bef_haved")="" then
session("newdsoft_selct_a_lable_bef_haved")=1
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0);
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载标签列表中....</font>';",800);
var okeeee=0;
var needdo=1;
var w ;
var w2 ;
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!,请关闭所有占用数据库的软件如ACCESS,再重新进入本功能");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载自定义标签列表成功......"+"</font>';",1500);
okeeee=1;
sys_label_get();
}
}
a.async=true; //异步模式
a.load("adminLabel/D_ajax_update_custom_label_list_to_mdb_from_files.asp");
setTimeout("err_timeout();",38000);
function err_timeout(){
if (okeeee==0){
alert("你可能打开了数据库软件ACCESS等,请先关闭它,再刷新本页,或者数据库已锁定,无法进入后台!");
}
}
function sys_label_get(){
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载系统标签列表中....</font>';",800);
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载系统标签列表成功......"+"</font>';",1500);
//循环延时，防止卡住:
w = setInterval("do_kernel()",40);
}
}
a.async=true; //异步模式
a.load("adminLabel/D_ajax_update_sys_label_list_to_mdb_from_files.asp");
}
var ended=0;
var ended2=0;
var pos="";
var msg1="";
var a2=AJAXcreateXMLdocument();
a2.onreadystatechange=function(){
if (a2.readyState==4)
{
if (a2.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a2.documentElement;
var ss1=root.firstChild.text;
var ss2=root.childNodes[1].text;
var ss3=root.childNodes[2].text;
if (ss1==1){ended=1;}
pos=ss2;
msg1=ss3;
needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在加载 "+msg1+"......"+"</font>';",1500);
if (ended==0){
}
else
{
self.location="D_select_a_label.asp";
}
}
}
function do_kernel(){
if (needdo==1&&ended==0){
needdo=0;
a2.async=true; //异步模式
a2.load("adminLabel/D_ajax_update_label_to_mdb_from_files_by_step.asp?pos="+pos);
}
}
</script>
<%
else
response.redirect "D_select_a_label.asp"
end if
end if
%>